home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGOSRC.ARC / POGO.C < prev    next >
Encoding:
C/C++ Source or Header  |  1985-11-20  |  3.2 KB  |  191 lines
  1.  
  2. /* Pogo.c - doesn't contain much but the main() routine and some global
  3.    variables.  */
  4.  
  5. #include <stdio.h>
  6. #include <ctype.h>
  7. #include "pogo.h"
  8.  
  9.  
  10. /* frames for compiling */
  11. struct pogo_frame *rframe;
  12. struct pogo_frame *global_frame;
  13.  
  14. /* break fixup list */
  15. struct break_frame *bfix_frame;
  16.  
  17. /* list of literal strings */
  18. Names *literals;
  19.  
  20.  
  21. /* yer basic error state */
  22. int global_err;
  23. int got_eof;
  24. int got_stop;
  25. int user_abort, run_abort;
  26. int run_time;
  27.  
  28. /* some things can only be done inside a function */
  29. int in_func;
  30.  
  31. /* some things only in a loop */
  32. int in_loop;
  33.  
  34. /* some things in a creature */
  35. int in_creature;
  36.  
  37.  
  38. /* should we insert source level debugging stuff into the code stream?? */
  39. int debug_statements;
  40.  
  41. /* This is where all the subroutines code get's hung after compile */
  42. struct func_frame *ff_list;
  43. struct func_frame *universe_function;
  44.  
  45.  
  46.  
  47. /* our data/evaluation stack */
  48. union pt_int dstack_buf[SSZ];
  49.  
  50.  
  51. Symbol *universe_symbol;
  52.  
  53.  
  54. extern int randseed;
  55. char tbuf[90];
  56.  
  57.  
  58. main(argc, argv)
  59. int argc;
  60. char *argv[];
  61. {
  62. int i;
  63. char *command = NULL;
  64.  
  65. if (argc < 2)
  66.     {
  67.     puts("Usage: pogo sourcefile");
  68.     exit(0);
  69.     }
  70. else
  71.     {
  72.     debug_statements = 1;
  73.     if (argc > 2)
  74.         {
  75.         command = argv[2];
  76.         if (strcmp(command, "nodump") == 0)
  77.             debug_statements = 0;
  78.         if (strcmp(command, "dump") == 0)
  79.             debug_statements = 1;
  80.         }
  81.     if (init_sys())
  82.         {
  83.         title = argv[1];
  84.         if (!jexists(title))
  85.             {
  86.             sprintf(tbuf, "%s.POG", title);
  87.             if (!jexists(tbuf))
  88.                 {
  89.                 printf("Couldn't find source file %s, sorry\n", title);
  90.                 quit();
  91.                 }
  92.             title = tbuf;
  93.             }
  94.         pogo_file(command);
  95.         close_pogo_file();
  96.         }
  97.     quit();
  98.     }
  99. }
  100.  
  101.  
  102. quit()
  103. {
  104. cleanup();
  105. exit(0);
  106. }
  107.  
  108. extern Names *temps[];
  109.  
  110. pogo_file(command)
  111. char *command;
  112. {
  113. if (!open_pogo_file(title))
  114.     quit();
  115. p_file(command);
  116. close_pogo_file();
  117. if (!global_err)
  118.     {
  119.     printf("%s %d instructions\n\n", title, count_is());
  120.     run_time = 1;
  121.     if (command == NULL)
  122.         {
  123.         if (!check_stack(universe_function))
  124.             return;
  125.         run_ops(universe_function->code, 
  126.             dstack_buf + universe_function->pcount 
  127.             + universe_function->dcount);
  128.         active_frame--;
  129.         free_nlist(temps[active_frame]);
  130.         temps[active_frame] = NULL;
  131.         }
  132.     else
  133.         dump_code();
  134.     }
  135. if (user_abort)
  136.     {
  137.     to_text();
  138.     puts("Exiting Pogo");
  139.     }
  140. }
  141.  
  142. /* go compile and run pogo on one file */
  143. p_file(command)
  144. char *command;
  145. {
  146. got_eof = got_stop = global_err = 0;
  147. printf("Compiling %s\n", title);
  148. new_frame();
  149. global_frame = rframe;
  150. if (!init_constants())
  151.     return;
  152. if (!init_predefs())
  153.     return;
  154. if (!init_keywords())
  155.     return;
  156. pogo_func(0);
  157. if (!global_err)
  158.     {
  159.     if ((universe_symbol = new_symbol(" Universe", FUNC, GLOBAL, rframe)) 
  160.         != NULL)
  161.         {
  162.         if ((universe_function = 
  163.             beg_zero(sizeof(*universe_function))) != NULL)
  164.             {
  165.             universe_symbol->symval.p = (void *)universe_function;
  166.             }
  167.         save_function(universe_symbol, universe_function);
  168.         resolve_funcs();
  169.         alloc_type_alive();
  170.         }
  171.     }
  172. }
  173.  
  174.  
  175. /* Code up a function body.  */
  176. pogo_func()
  177. {
  178. get_states();
  179. code_big(OP_CON, 0L);    /* return 0 if not explicit */
  180. code_void(OP_END);
  181. fixup_fref();
  182. }
  183.  
  184. gentle_free(s)
  185. void *s;
  186. {
  187. if (s != NULL)
  188.     freemem(s);
  189. }
  190.  
  191.